#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать запрос для вывода только правильно написанных выражений со скобками.

# РЕШЕНИЕ:
# Выводит те строки входного текста, которые содержат только правильно
# составленные с круглыми скобками выражения.

# ЗАМЕЧАНИЕ:
# Использует рекурсивыне регэкспы, которые не являются регэкспами в их классическом понимании.

$i = 1;
while ($line = <>) {
	if ($line =~ m/([\w]*(\((?1)\))?[\w]*)+/) {
		print "$i. $line";
	}
	
	$i++;
}
